Mac-Source 1994 July/Mac-Source_July_1994.iso/Other Langs/Tickle-4.0 (tcl)/tcl/src/macPanic.c

C/C++ Source or Header | 1993-10-25 | 229 b | 22 lines | [TEXT/MPS ]

#ifdef MPW
#    pragma segment TCL_MAIN
#endif

#include <stdio.h>
#include <stdarg.h>

void
panic(char *format, ...)
    {
    va_list        varg;

    va_start(varg, format);

    vfprintf(stderr, format, varg);

    va_end(varg);

    exit(2);
    }